'' Scenario
'' Verifying web site language by default

'' Action
'' Open Internet Explorer Browser
	
	Set objBrowser = IEManager.OpenBrowser()
	Set objDocument = objBrowser.Document

'' Action
'' Navigate to 'http://code.google.com/intl/uk/' web site

	objBrowser.Navigate "http://code.google.com/intl/uk/"

'' Action
'' Verify the current selected language

	Set colLinks = objDocument.ChildElements("element class: link, html id: lang-dropdown")

	If colLinks.Count = 0 Then
		TestScript.ActualResult Severity.High, "The language menu item couldn't be find at the top of the site"
	End If

'' Expected Result
'' The 'Ukraininan' language should be selected by default after navigating to Google Code web site

	strLanguage = colLinks(1).GetProperty("inner text")

	If UCase(strLanguage) <> "UKRAINIAN" Then
		TestScript.ActualResult Severity.High, "The '" & strLanguage & "' language is selected by default"
	End If